M = (11.035, -0.84)
N = (13.87, 2.985)
O = (20.125, 2.94)
Q = (18, -10)
R = (16, -8)
S = (13, -8)
T = (13, -6)
V = (16, -1)
W = (16, -3)

Tool: Arc de parabole (command Arcdeparabole)
Input: B, A, C
Output: f

a_1 = Line(A, B)
a: (Slope[a_1] - Slope[Line[A, C]]) / (x(A) - x(C))
b: Slope[Line[A, C]] - (a * (x(A) + x(C)))
c: y(A) - (a * x(A)^(2)) - (b * x(A))
f(x) = If[(x(B)  <  x(A)) ∧ x(A)  <  x  <  x(C) ∨ (x(A)  <  x(B)) ∧ x(A) > x > x(C), (a * x^(2)) + (b * x) + c]

Tool: Arc de parabole 2 (command Arcdeparabole2)
Input: A, m, C
Output: f

a: (m - Slope[Line[A, C]]) / (x(A) - x(C))
b: Slope[Line[A, C]] - (a * (x(A) + x(C)))
c: y(A) - (a * x(A)^(2)) - (b * x(A))
f(x) = If[x(A)  <  x  <  x(C) ∨ x(A) > x > x(C), (a * x^(2)) + (b * x) + c]